; * lisp/vc/vc.el (vc-prepare-patch): Fix pluralisation

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 5876cb34dd65beec033b9268f9b2934b275bf9ea..8d0680888a4169a35293dfd2dc27e2db3bded33c 100644 (file)
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -3371,7 +3371,8 @@ revisions, those revisions will be used."
                            revisions)))
       (if vc-prepare-patches-separately
           (dolist (patch (reverse patches)
-                         (message "Prepared %d patches..." (length patches)))
+                         (message "Prepared %d patch%s..." (length patches)
+                                  (if (length> patches 1) "es" "")))
             (compose-mail addressee
                           (plist-get patch :subject)
                           nil nil nil nil